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Un pont vers 


le futur 
avec FORTH 


EDITORIAL 


Nos adhérents ont du génie, certes, mais ils Nous écrivons petit: c'est pour fournir plus de 
tardent un peu à en faire profiter les autres. Et matière à réflexion dans le même volume. Nous ne 
pour Ceux qui sont à court d'idées, nous les pouvons dépasser les 100 grammes sous peine de 
stimulerons en adoptant un nouveau ton. Ainsi, devoir augmenter la cotisation pour cause de 
dans l'article ‘Génération de commandes FORTH surtaxe postale. 

depuis une chaîne de caractères', vous devrez 

développer vos propres routines à partir d'une Nous n'avons pas de publicité: ce n'est pas faute 
idée commune. Cette formule, différente du d'avoir essayé. Mais JEDI ne tire qu'à 500 
principe de 'Questions/réponses' est destinée à exemplaires, donc notre impact est considéré comme 
vous faire travailler un peu par vous même. négligeable. 


Le but de cette démarche est d'obtenir diverses Nous n'avons pas de sponsors, pas de subvention: 

versions d'un même problème, donc de permettre une peut être faut-il faire du coude à HERSANT, au 

critique plus objective. C'est également risque d'être rachetés.., 

l'occasion d'instaurer un véritable dialogue entre 

programmeurs, le contenu des articles se Nous n'avons pas de local permanent: c'est le 

rappochant ainsi plus de la notion d forum. local ou la revue. Nous ne pouvons rembourser les 
billets d'avions pour nos adhérents hors métropole 

On ne le répétera jamais assez, mais JEDI est (Argentine, Polynésie, Tunisie...) 

avant tout votre revue. C'est vous qui en composer 

le contenu, nous nous occupons seulement de la Mais nous avons: de l'énergie à revendre, une 

mise en forme. Êt peu importe le style si on volonté d'exister et de s'imposer, des idées et 

dispose du support. Est-il nécessaire d'avoir un des adhérents de valeur, des sujets en or, et 

"look pro'? Nous ne le pensons pas. Mais peut-être surtout le culot de diffuser ce que d'autres 

sommes-nous dans l'erreur. Journaux considérent comme des sujets marginaux. 
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LANCEMENT DE FORTH 
DEPUIS UN FICHIER DE COMMANDE DBASE II 


Le langage FORTH et tous les logiciels créés et sauve 

dés en version compilée à partir de FORTH peuvent être 
exécutés de mnière indépendante de tous les autres lan— 
gages ou progiciels. Mais il est possible, par souci de 
commdité de pouvoir lancer de manière automatique un 
programme FORTH depuis un progiciel. 


Sous dBASE, on put intégrer dans un fichier de commande 
(pour exemple MENU.CMD) la ligne de commnde suivante: 


QUIT TO 'B:F83','DBASE MENU.CM' 
en supposant que FB3.C0M se trouve sur le drive B. Si vous 
désirez conserver la mémoire dBASE en l'état, vous pouvez 
sauvegarder son contenu dans un fichier à part. 
L'abandon de ABASE affiche 

** fin du traitement dans dBASE version L.C.E. ** 
puis le prompt CP/M affiche 

ADB:F65 
et le jarbésé FORTH démarre. Si on a la curiosité de taper 
DIR, on constatera qu'un fichier nommé '$$$.SUB' apparait 
dans la directory CP/M. 


L'abandon de la session de travail sous FORTH se fait en 
tapant BYE. On revient sous CP/M, le prompt affichant: 


ADDBASE MENU.CMD 


et vous revenez sous ABASE avec démarrage automatique du 
fichier de commande 'MENU.CM'. 


LANCEMENT DE FORTH 
DEPUIS LE PROGRAMME WORDSTAR 


Lorsque sous WORDSTAR, on se retrouve avec le menu des 
commandes WORDSTAR, différentes options sont possibles, 
dont l'ouverture d'un fichier, 


tion. Bien entendu, seul un fichier '.COM' peut être 
exécuté. Vous êtes sur le drive A, FORTH se trouve sur le 
drive B, choisir l'option L et répondre B <ret>; choisir 


l'option R et répondre F83 <ret>, 
tement R et répondre B:F83 <ret>. 


Une fois votre session de travail sous FORTH terminée, 
taper BYE, œæœ qui affiche: 


Hit any key to return to WORDSTAR 
et vous revenez directement au mnu des commandes WORD- 
STAR. Cette option, très utile, permet de lancer des 
programmes tels que mise en série de la sortie imprimante: 
STAT IST:sULt : 
ou même lancer dBASE... 
On constate que FORTH vient compléter une panoplie d'ou- 


tils en donnant accès à des ressources inhabituellement 
exploitées sur des programmes classiques. 


GENERATION D'UNE COMMANDE FORTH 
A PARTIR D'UNE CHAINE DE CARACTERES 


Et maintenant, dans la série "LES GRANDS TRAVAUX" 
une proposition d'étude que je vous soumet. 


voici 
A ma connaissance, seuls deux langages, LISP et I0GO, sont 
capables d'exploiter directement le contenu d'une liste: 


DONNES TEST" [ TD 9 AV 50 TD % AV 2 ] 
EUX TEST" 


On ne ut réaliser œæci en BASIC: 


TROIS ROUTINES par Marc PETREMANN 


Mais FORTH (et surtout F83), que c'est un langage très 
bien très joli et qui peut tout faire, accepte ce ænre de 
manipulation après définition du mt $SEXEÆUTE: 


: SEXICUTE ( adr len —-) 


DUP 4TIB ! 
TIB SWAP MVE 
BLK OFF DIN OFF ; 


puis on définit une constante chaîne: 


: TEST ( — adr len) 
" DARK WORDS" : 


TEST TYPE affiche ‘DARK WORDS"! 


TEST SEXMUTE 


exécute un effacement d'écran et affiche le contenu du 
vocabulaire courant. Pour rigoler, essayez ceci: 


: CREE 
"2 TEST2 ; " SEXICUTE ; 
: OUBLIE 
" FORGET TEST? " SEXACUTE ; 
puis tapez 
CREE : M; : T2 ; WORDS affiche 
T2 T TEST2Z ....etc... 


OUBLIE WORDS oublie le mot TEST2 et tous ceux définis 
après lui!! 


Je vous laisse imaginer le parti qu l'on peut tirer de 
$SEXICUTE en traitant des chaînes de caractères par conca- 
ténation, fractionnement, évaluation, etc.... Pour exem- 
ple, imaginons de définir un mt ITEM qui recherchera la 
nième sous-chaîne séparée par des espaces dans une chaîne: 


: TEST ( — ar long ) 

" WORDS DARK DIR" 

TEST 1 [TIM TYPE afficherait "WORDS" 
TEST 2 ITEM TPE afficherait ‘DARK' 


l'impression et l'exécu- etc,.. 


et TEST 2 ITIM SEXEUTE exécute un effacement d'écran. 


ou encore, taper direc- Nous attendons les propositions (pas toujours aux mêmes de 


bosser...) en respectant les contraintes suivantes: 


STRING n = <mot> en compilation 

-— aûr long en exécution 
Mot de création de variable chaîne avec n caractères 
réservés. À l'initialisation, long est égal à O0. 


$! adri long air? longe — 
Affecte le contenu de la chaîne 1 à la variable chaîne 2. 
Exemple: 

80 STRING A$ 


" Ceci est un essai" A$ $! 


$+ adri long aûr2 long? — 
Concaténation de chaînes. 


LEN adr long —— long 
Longueur d'une chaîne. 


MID$ LEPTS RIGHTS 
Sans commentaire.., 


Bien entendu, l'exécution de ces mts doit être sécurisée. 


- L'affectation d'une chaine de longueur supérieure à la 


taille mximale affectée à ne variable chaîne ne doit pas 
provoquer de débordement. 


A partir de ces éléments, si vous vous en sentez le cou- 
rage, définissez des mots capables de transformer le con- 
tenu d'une chaîne A$ du type: 

u (A+B)*C" 


en une chaîne B$ du type: 


ASS'"'PRINT HR" 
"AB+C*" 
et ... exécuter le contenu de B$ 
Le et qui pourra être exécuté simplement par B EXAUTE. À 
LE De =] 
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noter que si À, B et C n'existent ee on pourra compléter 
la fonction d'évaluation par l'exécution d'une chaîne C$ 


telle que: 
" VARIABLE " C$ $! 
B$ 1 ITEM C$ $+ 
C$ EXACUTE 


Si vous y mettez de la récursivité, nous serons ravis. 


= 


La dernière définition de #INPUT (JEDI 32, page 2) est 


| ERRATA 


— les deux mots permettant la conversion d’un fichier écran 
.BLK en un fichier texte, "traitable" par vatre WORD ou 


WORDSTAR préféré. Le voici 


k Conversion/transfert fichiers "texte". 


19Fev87JaD | par A. TAaccornnA»D 


erronée. Voici la définition exacte: 


: #INPUT { u — à) 

4OUT @ 

BEGIN DUP #OUT ! OVER TIB SWAP EXPECT SPAN (à eTIB ! 
BLK OFF DIN OFF 32 WORD NUMHER? NOT 

WHILE 2DROP DUP aOUT (@ SWAP - 
DUP BACKSPACES DUP SPACES BACKSPACES 

REPEAT 

ROT DROP ROT DROP ; 


Et pour finir, de la part de Mr JACCOMARD, les deux mts 
BLKÉTXT et SAUVE, utilisables seulement sur la version F83 
MSDOS : 


SFO @ 1280 - CONSTANT DTA 
VARIABLE ADR-DTA 


BLKDTXT ( n°_blc -- ) 
DTA DUF ADR-DTA ! B/BUF BLANK 
BLOCK ( ad_buff_disq ) 16.@ DO 
DUF. I C/L * + 


ADR-DTA @ C/L  3DUF  CMOVE 


\ adr tampon transfert. 
\ adr courante dans DTA. 


\ convertit 1 bloc fich. courant. 
\ tampon “blanc". 

\ boucle pr 16 lignes. 

\ adr lig. ds buff. disque. 
(ad _buf ad_lig ad_dta lgr }) 


—TRAILING FDUF IF 
+ BL OVER C'! \ un espace de sécurité en fin ligne 
1+ 2573 OVER : \ CRLF (ODOGAH = 2573d 
2+  ADR-DTA ! DROF \ mise à jour ADR-DTA et pile. 
ELSE Z2DROF THEN \ ignore ligne vide 


LOOF DROF ; 


5: SAUVE 

[ DOS 1] 

FCEB2 DUF !FCR DUP DELETE DROP DUF MAKE-FILE 

CAFACITY @ DO 

T1 BLKSTXT 

DTA ADR-DTA &@ OVER — 1+ 
EOUNDS  ?DO 

I SET-DMA DUF 


F5 == ) 


( fcb ad_déb lgr ) 
{ ad_déb+lgr ad_déb ) 
( adr début transfert ) 


WRITE 
128 +LO0F \ écrit sur disque le bloc “"texté", 
LOOF \ par groupe de 128 oct. 
CLOSE ; 


ONLY FORTH ALSO 


Utilisation : 
OPEN nom. BLK 
SAUVE nom. DOC 

lecteur courant) 


Quoi de plus simple? 


( fcb ) 
\ pour les ’n’ blocs du fich. 
\ écrit 1 bloc “texté" de 1074 oct. 


{le fichier "courant" à convertir) 
(extension pour WORD; il est écrit sur le 


courant, 
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PROLOG 


Complément au programma PRoICG DE Tepi n° 2o© 


FONDEMENTS 


Dans toute l'histoire de la technologie MOS, concepteurs 
et technologues ont dû réaliser les compromis garantissant 
des performances et des rendements de fabrications 
acceptables. Le rendement théorique peut s'exprimer en 
fonction de la surface du circuit (S), de la densité de 
défauts des masques (NO) et du nombre de niveaux critiques 
de masques (n): 


p=(1+S.NO)EXP-N 


En premier lieu, on recherche la réduction de la surface, 
ce qui conduit à définir des dimensions minimales des 
motifs élémentaires, que le concepteur exploite au mieux 
pour réaliser la fonction au coût minimal en surface. Par 
ailleurs, la réduction générale des dimensions est un 
facteur de performances, d'où l'importance des règles de 
dessin, qui accompagnées par les paramètres électriques 
constituent les règles de conception. 


Trois critères principaux permettent l'établissement des 
règles de dessin si le processus technologique est supposé 
être figé: les conditions électriques de fonctionnement 
(tension, courant) définissent notamment les longueurs de 
canaux, les possibilités de la gravure définissent les 
largeurs et espacements des lignes conductrices ainsi que 
les contacts qu'il est possible de graver, enfin les 
tolérances de superposition des masques définissent des 
gardes {nterniveaux. À ceci peuvent éventuellement 8e 
rajouter des configurations interdites résultant d'un non 
sens électrique ou d'une impossibilité technoligique. 


En fait 11 y a une interaction profonde entre le processus 
technologique et les règles de conception, à un point tel 
qu'il est fréquent pour les cireuits à production 
importante d'ajuster les paramètres du processus ou les 
dimensions des masques en vue d'optimiser le rendement 
pour une conception donnée. 


EXEMPLE DE REGLE DE DESSIN 


Les règles de dessin d'une technologie NMOS silicium ne 
contiennent pas moins d'une centaine de dimensions 
spécifiées. Elles sont généralement présentées niveau par 
niveau avec mention des niveaux devant respecter des 
contraintes par rapport au niveau considéré. La 
présentation de la figure ci-dessous correspond à des 
règles simplifiées concernant les niveaux les plus 
critiques, les dimensions purement indicatives 
correspondent à la dénomination HMOS 1: 


Zones diffusées microns in 

largeur LD 4 ail F 

écartement ED 5 

largeur des MOS LDM 4(1) _ HIT 

E 1 

Précontact 

surface mini CxC 4x4 

débordement/N+ DD 1,5 

débordement/Poly DP 1,5 

débordement/champ DC 1,5 


Silicium polycristallin 


largeur LP #4 
écartement- EP 4 
largeur sur MOS LPM 3,5(2) 
débordement Poly/champ DPC 3 
débordement N+/Poly DNP 3 
distance N+/Poly ENP 2 
Contacts 
dimension CTxCT 4x4 HNCTe PCT 
écartement ECT 4(3) 
débordement N+/CT DNCT 2 


débordement Poly/CT DPCT 2 


SE 


Aluminium 
largeur LM 5 
écartement EM 5 
débordement At/CT DMCT 1 


Les motifs après traitement technologique diffèrent des 
motifs dessinés en raison de la chaîne lithographique et 
gravure. La différence de dimension souvent nulle peut 
atteindre plus ou moins un micron, avec une incertitude de 
l'ordre d'un demi micron. Ainsi, les motifs dont la 
résistance peut être affectée par des variations 
excessives de la géométrie seront dimensionnées à une 
valeur suffisante pour limiter les dispersions dans un 
rapport de IL à 3 par exemple, c'est le cas dr la zone 
diffusée (LD) ou du silicium polycristallin (LP). 


Au-delà de cet aspect électrique, la limite inférieure 
représente celle en-dessous de laquelle les défauts de 
gravure introduiraient des discontinuités ou des courts 
circuits entre motifs. Ceci concerne d'une manière 
générale les autres dimensions minimales (aluminium, 
contacts) et les écartements. En particulier, l'écart 
entre zones diffusées tient compte en sus de la diffusion 
latérale du phénomène de perçage lié à la différence de 
potentiel maximale admissible entre deux diffusions. 


Les tolérances de superposition des masques successifs 
peuvent atteindre des valeurs importantes (jusqu'à plus ou 
moins un micron). Toutefois, la séquence d'alignement est 
étudiée pour que la plupart des masques critiques soient 
référés au premier niveau de sorte que cette tolérance est 
rarement cumulée. Ceci concerne les éléments définis par 
la superposition de deux ou plusieurs masques: cas du 
précontact où la surface minimale CxC doit tenir compte 
des divers cas de décalage selon les différentes 
topologies Poly/N+, c'est le cas de l'élément MOS où le 
débordement de grille (DPC) est prévu pour éviter le 
court-circuit drain-source, tandis que le débordement 
N+/Poly(DNP) garantit que l'accès au transistor n'aura pas 
une résistance excessive. 


En outre, les ouvertures de précontact et de contact ont 
des caratéristiques différentes. En effet, l'ouverture de 
précontact peut  déborder sur le substrat sans 
inconvénient, par contre, elle doit rester éloignée de 
tout silicium polycristallin ou zone diffusée non 
équipotentielle. En ce qui concerne l'ouverture de contact 
Alu/Poly au Alu/N+, elle ne doit pas déborder sur le 
substrat en raison du risque de contact Alu/substrat 
(risque exclus par DNCT et DPCT), mais l'aluminium doit 
recouvrir entlèrement l'ouverture de contact: risque de 
contact insuffisant ou peu fiable (DMCT). 


Enfin, certaines règles présentent des variantes. 


1. La largeur des MOS doit être augmentée 81 la géométrie 
est critique, cela dépend notamment des tolérances de 
fabrication qui reproduisent les motifs à +-0,5 microns au 
mieux. La dimension nominale sur circuit n'est pas 
toujours la dimension du masque. 


2. La largeur de grille définit la longueur du canal MO0S 
(à la diffusion latérale près), ce paramètre est limité 
par la tenue en tension qui peut conduire à exiger des 
largeurs plus importantes pour Les MOS à dopage 
superficiel plus faible (MOS déplétés). L'écartement entre 
zones diffusées (ED) qui obéit aux mêmes contraintes est 
choisi plus important car le rsique de perçage est accru 
sur des longues distances. 


3. Généralement, la règle de dessin impose des contacts à 
dimension unique séparés par une distance du même ordre de 
préférence à un long contact rectangulaire pour des 
raisons de rendement de fabrication; en effet l'ouverture 
rectangulaire accroît les risques de décollement de la 
résine pendant la gravure. La séparation entre les 
contacts évite le profil en couteau qui risquerait de 


couper le conducteur d'aluminium. 


Suite fege Z2o 


LRPL. 2h. 


Séparation entre les contacts. 
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PASCA L Décompresseur de fichiers en cadage de Huffman Par linds ZRNG 


AotyPe UNSQ2, PAS 


{&A+} 
PROGRAM UNCMPRSS: {€ Restorer un fichier comPresse } 
VAR 

TABLE : ARRAY CG.,11511 OF EYTE: 

MNOMG, NOMT  : STRINGL1É]: 

CH, CHI : BYTE; 

BUFFIN : ARRAY C1..129J OF BYTE; 

PTFICH : BYTE; 

FICH,FICHI : FILE: 

PTBIT : EYTE: ( COMPTEUR DE BITS } 


{ 
SAVEBYTE : EYTE: { DERNIER OCTET TROUVE } à 
BYTECOUNT : INTEGER: { MR. DE REPETITION OÙ DERHIER OCTET } 
£ 


SAVEBIT : BYTE: ( OCTET EN COUR DE TRAITEMENT } 

I : INTEGER; 

LENTAB ‘ INTEGER; { LONGUEUR DE LA TABLE DE CODAGE } 
PTFICHI 1! INTEGER; { POINTEUR DU FICHIER OUT } 

TAMPON : *BYTE; € TAMPOH QUT } 

FLAG ï BYTE; { FLAGS#FE =2= EOF * 


TAILTAMPON : INTEGER: 
LENTAMPON  : INTEGER; 
CMOLIN : STRINGC191: 
CRC, CRCO : INTEGER; 
UNTILFLAG : BODLERH; 


PROCEDURE CLOSEOUT ; FORHARD: 


PROCEDURE OPENIHN: 

BEGIH 
ASSIGNCFICH, NOM »; 
{S1-) 
RESETCF ICH); 
(S1+) 
PTFICH:2129; 
PTBIT:=128; 
SAVEBYTE : =9; 
B'YTECOUNT : #@; 
SAVEEIT : «Q 

END ; 


PROCEDURE RERDCHCYAR CH:BYTE 5: 
BEGIN 
IF PTFICH>128 THEN 
BEGIN 
BLOCKREADS FICH, BUFFIH, 1 ï: 
PTFICH:=1 
END; 
CH: =BUFF INCPTFICHI; 
PTFICH:æSUCCCPTFICH) 
END; 


FUNCTION GETBIT : BOOLEAN: 
BEGIH 
IF PTBIT=128 THEN 
BEGIN 
REACCHC SAVEBIT ); 
PTRIT:=1 
END ELSE PTBIT:=PTBIT SHL 1; 
GETBIT':æCSAVEBIT AND PTBIT 4 5G 
END ; 


FUNCTION EVALUE : SYTE; 
LABEL FIN, LOOP: 
VAR I : INTECER: 
BEGIN 
l'eÿ: 
LOCP : 
IF GETEIT THEH L'=l+?; 
FLAG : =TABLELSUCE I 51: 
IF FLAGD>=128 THEN GOTO FIH;: 
l'=TABLELIJ SHL 2: 
GOTO LOOP: 
FIH: 
ÉVALUE : =TABLECIJ XDR -1 
END ; 
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FUNCTION GETCHARS VAR CH : EYTE à : EUDLEAMH; 
VAR 
CH1,CH2 : BYTE: 
BEGIN 
IF BYTECOUNT=9 THEH 
BEGIN 
CH: #E VALUE ; 
IF CH<>990 THEM SAVEBYTE:=CH ELSE 
BEGIN 
CH1:=EVALUE ; 
IF CH1z9 THEN SAVEBYTE:=CH ELSE 
IF CH121 THEH 
BEGIN 
BYTECOURT:=CHi-2: 
CH: =SAVEBYTE 
END ELSE 
BEGIN 
CH: SE VALLE : 
SAYEBYTE : =CH 
END 
END 
END ELSE 
BEGIN 
CH: aSRVEBYTE : 
BYTECOUNT : zPFEDC RYTECOLIHT 2 
END) 
IF FLAG=$SFE THEH GETCHAR:2=FALSE ELSE GETCHAR:=<TRUE 
END; 


PROCEDURE OPENOUT : 

BEGIN : 
ASSIGNCFICH1, HOMI »; 
REURITE(FICH1 ); 

PTFICHIi:æi; 
TAILTAMPON : =MEMAVAIL ; 
IF CTAILTAMPON<O) OR € TAILTRAMPONSMAXINT) THEM TAILTAMPON: =MAXINT-1) 
LENTAMPON :æTAILTAMPON DIV 128; 
TAILTAMPON : =LENTAMPONX 128: 
GETMEMC TRMPON, TAILTAMPOH » 
EHD ; 


RÉSREURRE PUTCHARS VAR BUFF : CH: EYTE 3: 
Een ne : ARRAY C1..13 OF BYTE ABSOLUTE BUFF; 
U 
IF PTFICHLDTAILTAMPON THEN 
BEGIN 
BLOCKURITECFICHI, BUFF OUT ; LENTAMPOH 3: 
PTFICHi:=1 
END : 
BUFFOUTEFTFICH11:=CH: 
PTFICHI:=SUCCIPTFICHI 
END : 


PROCEDURE CLOSEOLIT ; 
BEGIN 
PTFICHI:=PTFICHI-1: 
LENTAMPOH:=PTFICHI DIV 12%: 
IF CPTFICHI MOD 1283229 THEM LEHTAMPOH : LENTAMPOIH+1 ; 
BLOCKHRITECFICHI. TAMPOH®, LENTAMPON 3 
RELEASES TAMPOH 3; 
CLOSE FICH1 
END: 
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BEGIN 
WRITELN: 
IF PARAMCOUNT=9 THEH 
BEGIN 
. MRITELNC'Suntax : HomPFichierC CbestOriv11 ): 
WRITELN; 
UNTILFLAG:=FALSE ; 
END ELSE 
BEGIN 
UNTILFLAG : =TRUE : 
CMOLIN:=""; 
FOR T'=i TO PARAMCOUHT DO CHOLIH:=<CMDLIH4+PARANSTRE ] D+* 
END; 
REPERT 
IF NOT UNTILFLAG THEN 
REPEAT 
WRITEC’*X’); 
READLNÇCCMOLIM à 
UNTIL CMOLIN<D’": 
FOR I'=1 TO LEMGTHCCMOLIH) DO CHDLIHEIA: =UPCASEC CMOLINCI 1): 
l'sPOSC’ ?’,CHMCLIHM): 
IF IaQ THEN 
BEGIN 
NOMG : =CMDL IH: 
CMDLIH:="" 
EHO ELSE 
BEGIN 
NOM : =COPYC CMCLIM. 1, 1-1; ’ 
MHILE CCMOLIHEIJ=" ‘5 AND CISLEMNGTHSOMDLIHSi DO L:zl+1: 
CMOLIN:=COPYCCMOLIN, 1,23 
END; ; i 
OPENIN; 
IF IORESULT<>ÿ THEN HRITELN File not found’) ELSE 
BEGIN 
RERDCHC CH »: 
RERDCH( CH ); 
IF CCHC2S76) OR CCHIL<YHFF > THEH 
BEGIN 
WRITELNC'Ce n'’est Pas un fichier comPresse !°5 
END ELSE | 
BEGIN 
READCHC CH à: 
CRC9 : =CH:; 
RERADCH£ CH 3: 
CRCA:=CRCG OR CCH SHL 85: 
NOM :=°° ; 
REACCHC CH 5 ; 
WHILE CH<>6 DO 
BEGIN 
NONML : =NOM1+CHRC CH 1: 
READCHCCH 
END; 
NOM : =CMOL IH+HNOH1 : 
WRITELNCOHONMD.’ zzz *‘, HOM{ 
READCHC CH à: 
LENTAR : =CH: 
READCHC CH à; 
LENTAR : = LEHTRB+CH#Z2SE 44 ; 
IF LENTAE=S THEH 
BEGIN 
HRITELHE  ARANCON -- LENTAB=G ! ? :: 
HALT 
END: 
FÜR I:=6 To LEMTAB-1 C0 
BEGIH 
RERDCHC CH; 
TABLELCIT:=CH 
END ; 
OPEMOUT ; 
CRC :=ÿ; 
WHILE GETCHARCCH) CO 
BEGIN 
PUTCHARS TAMPON. CH 5; 
CRC: =CRC+CH 
END ; 
IF CRCC>CRCD THEH HRITELHC/#KX4 Attention: Erreur dans ChekGum ###' 0: 
CLOSEOUT 
END 
END; 
CLOSE(FICH) 
UNTIL UNTILFLAG 
EHD. 
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Le moniteur du TOA+ 


Les possesseurs de THOMSON T09%+ désireux d'exploiter au 
mieux les ressources de leur système trouveront ici les 
adresses essentielles à la mnipulation des roœutines du 
moniteur. Ces routines sont utilisables depuis FORTH ou 
depuis une routine écrite en langage machine. 


CRUE 


CONVENTION D' ECRITURE 


Dans ce propos, les nombres ne figurant pas explicitement 
dans une routine FORTH seront suivis de la lettre d s'ils 
sont en décimal, de la lettre h s'ils sont en hexadécimal. 
Exemple: 


10h = 164 


Les registres RAM sur deux octets seront symbolisés par 


el:XXXXh où XXXX représente l'élément mémoire d'adresse adr NOUVEAUX-CAR 60CF ! 


et adr+t. Exemple: 
contenu de el:605Ah 
goit en FORTH: 
HEX 605A @ DIIMAL 
Les nombres binaires seront suivis de la lettre b, bO 
étant le bit de poids faible, b7 le bit de poids fort pour 


un octet, b15 le bit de poids fort d'un élément mémoire 
el:XXXX. 


Les valeurs quelconques sur 8 bits sont nommées © et n sur 
16 bits. 


LE MONITEUR DU TO 


INTERRUPTIONS : 


TIMER 
ACIA clavier et souris 


programmables 


Le TIMER est initialisé à 100 ms et gère le clignotement 
du curseur. L'aiguillage sur ses propres fonctions est 
réalisé en mettant l'adresse de sa propre routine dans 
el:6027h (TIMEPT) correspondant à l'adresse de début 
d'exécution de votre sous-programme. Valider en mettant à 
1 b5 de 6019h. Sauvegarder les registres DP et $ en début 
de sous-programme. Terminer le sous-programme par JMP 
E330h (routine KBIN). 


les IRQ, mettre l'adresse de votre sous-programme 
el:6021 (IROPT). 


Pour 
dans 


les FIRQ, mettre l'adresse de votre sous-programme 
el:6023 (FIRQPT). 


Pour 
dans 


mettre l'adresse de votre sous-programmæ 


Pour les SWI, 
Les SWI2 et SWIS sautent directement 


dans el:602F (SWI1 ). 
en 6800h et 7000h. 


Lors de la mise sous tension, le moniteur effectue une 
réinitialisation des paramètres d'interruption et de 
diverses adresses mémoires. Les registres contenant les 
adresses du générateur de caractère standard et du 
générateur de caractères utilisateur sont restaurées avec 
les valeurs des tables standard. 


Les interruptions sont invalidées. Le curseur devient 
invisible. La taille du RAM disk remise à O à la mise sous 
tension, reste inchangée lors d'un RESET. La banque RAM 1 
est prise par défaut. 


Le contenu de 6074h est réinitialisé (CONFIG). Le modem et 
les extensions situées entre E7FOh et EYFSh sont 
réinitialisées (décrochage de ligne dans Le cas du MODEM 
en communication). 


LE GENERATEUR DE CARACTERES 


correspondant au standard ASCII est implanté 


L'alphabet 
Chaque caractère est formé d'une 


dans le générateur GO. 


suite de 8 octets, donnant en binaire: 


B Jen N°35- Février 1387 


{d'aprèe desc. SIM ) 


. une couleur forme si le point 


par Mare 


adr+7 O0000000 Oh matrice du "A" 

adr# 00011000 18h 

adr# 00100100 24h 

adrt4 01000010 42h 

adr+3 O1111110  7Eh 

adr+2 01000010 42h 

adr+1 01000010 42h 

ar 90000000  OOh 

Cette table débute en RAM et son aîresse est implantée 


dans el:60CFh (PTGENE). Si vous redéfinissez votre propre 
table, implantez l'adresse de votre nouvelle table dans 
PTGENE. Exemple: 


CREATE TABLE NOUVEAUX-CAR 8 128 32 - * ALIOT 
HEX O0 C, O0 C, etc... 

puis 

DECTMAL 


L'alphabet G2 contient 22 caratères. Les acœnts, le c 
cédille faisant partie de cette table sont destinés à être 
combinés aux caratères de la table GO. La table G2 fait 
suite à la table GO en mémoire. 


La table utilisateur est implantée en mémoire vive et son 
adresse est déposée dans le registre el:602Dh (USERAF). 
Les codes "ASCII" sont pris séquentiellement à partir de 
BOh. On peut donc définir 128 caractères utilisateur. 


LE MODE 40 COLONNES 


Le T09+ gère un écran 40 colonnes de 320x200 points avec 
16 couleurs de forme, 16 couleurs de fond, 16 couleurs de 


tour. Chaque couleur est choisie parmis une palette de 
4096 tons. Le mde compatible T07 affiche 25 lignes 40 
colonnes de caractères. Les caractères sont définis dans 


une mtrice 8x8. 


En mode graphique, l'écran est composé de 8000 octets de 
forme et 8000 octets de couleur. Chaque paire d'octet est 
gituée à la même adresse. On parlera alors de mémoire 
forme où mémoire couleur, chaque mémoire étant 
sélectionnée par un bit du PIA (détail plus loin). 


un point peut prendre deux couleurs; 
correspond à un bit à un; 
une couleur fond si le bit est à O0. La couleur est 
déterminée par le contenu de l'octet situé à la même 
adresse dans la mémoire couleur. Exemple: 


Pour chaque octet, 


3Fh en mm forme 
CFh en mm couleur 


edr 
aûr 


=> oc 
LS vé 


soit un segment graphique —XIXXXX avec deux points à 
gauche en noir, le reste en blanc. 


La sigmification du contenu de l'octet oouleur est la 
suivante: 


b7 b6 b5 bd b3 b2 b1 bO 
ce valeur (0 à 15)*1 
couleur de fond 
valeur (0 à 15)6 
couleur de forme 


—————>Ùù 


avec 


1000 NOIR 1001 ROUGE 1010 VERT 

1011 JAUNE 1100 BLEU 1101 MAGENTA 
1110 CYAN 1111 HLANC 

0000 GRIS 0001 ROSE 0010 VERT CLAIR 
0011 SABLE 0100 HLEU CLR O101 PARME 


0110 BLEU CIEL 0111 ORANGE 


LE MDE 80 COLONNES 


Dans ce mode, la définition passe à 640x200 points. Deux 
couleurs seulement sont disponibles pour la totalité de 
l'écran, une couleur de forme et une couleur de fond. À 
noter que l'affichage de ce mde sur in mniteur couleur 
ordinaire est assez rapidement fatiguante si l'on envisage 
de taper longtemps du texte. 


la mémoire forme 


La mémoire est organisée comme suit: 
1a 


contient Les bits des points des colonnes paires, 
mémoire couleur celle des bits des points des 


colonnes 


PETREMANN 


impaires. Exemple: PUTC registre 6809 B 
codes des caractères normaux sont situés entre 20h et 


Les codes compris entre 07h et 1Fh contrôle certains 


en mem forme Les 
en mm couleur TFh. 


aûr © 
aûr é 


donne à l'affichage 

20000 
soit un segment de 16 points pour ne ligne de 80 segments 
càd 640 points. Les bits à O prennent la couleur de fond, 


les bits à 1 la couleur de forme. 


La mémoire écran débute en 4000h. 


MODES PAGE 1, PAGE 2 ET OVERLAY 


Ce mode affiche en 40 colonnes, mais les informations 
binaires sont organisées de manière différente. 
L'affichage utilise deux pages distinctes avec seulement 2 
couleurs par page. Pendant l'affichage d'une page, l'autre 
peut ere remplie puis rendue visible par commutation. 
Dans: le mode OVERLAY, ces deux pages peuvent être 
superposées. Les effets de ce dernier mde ne sont pas 
inintéressants. 


La page 1 travaille dans la mémoire forme. Les bits à 1 
prennent la couleur de forme, les bits à O la couleur de 
fond. 


La page 2 travaille dans la mémoire couleur. Les bits à 1 
prennent la couleur de forme, les bits à O la couleur de 
fond. 


LE MDE BLTMAP 16 COULEURS 


Dans ce mode, chaque point peut prendre 16 couleurs à 
raison de 160x200 points. Pour chaque groupe de 4 points 
pn aura: 


b7 b6 b5 b4 de c mæm forme 
b3 b2 bi bO de ce mm forme 
b7 b6 b5 b4 de c mm couleur 
b3 b2 bi bO de c mm couleur 


point O: 
point 1: 
point 2: 
point 3: 


LE MDE TRIPLE OVERLAY 


Ce mde superpose 4 pages avec des priorités d'affichage. 
La résolution est réduite à 160x200 points. Les priorités 
des plans vont de Pi à P4 dans l'ordre décroissant, P1 
étant le plan le plus prioritaire. L'organisation mémoire 
est similaire au mode bitmap 16 couleurs: 


de mm forme 
de mem forme 
de mem couleur 
de mm couleur 


b7 b6 b5 b4 
b3 b2 bi bO 
b7 b6 b5 b4 
b3 b2 bi bO 


plan 1: 
plan 2: 
plan 3: 
plan 4: 


Ces quatres plans ont la même couleur de fond. Les 
couleurs de forme sont pour Pt à l'arrière 1, 2, 4,.8. 


En mode incrustation (à condition de disposer de 
l'interface d'incrustation) le TO9+ remplace la couleur 
noire par l'image vidéo. Ainsi, en affichant im écran 
compètement noir et une où deux lignes en couleur en bas 
de page, on peut créer ses propres sous-titrages. En 
sélectionnant les options suivantes sous FORTH: 


COLOROFF 1 SCROLL 
on peut réaliser un banc titre à déroulement continu. 


sélection de la mémoire couleur est réalisée en mttant 
de E7C3h à O ou en tapant COLORON sous FORTH. 


sélection de la mémoire forme est réalisée en mettant 
de E7C3h à 1 ou en tapant COLOROFF sous FORTH. 


GESTION DES CARACTERES 


Le point d'entrée de la routine est EH303h (PUTC). Le code 
du caractère à afficher doit être déposé dans le registre 
B: 
entrée: 


paramètres de l'écran: 


07h 


BEL émet un bip sonore 


: RIP 7 EMIT ; 


HEX : REPETE 


déplace le curseur d'une case vers la 
gauche où recopie le caractère courant si 
604%h (COPCHR) contient FFh. 

LF descend d'une ligne 

VT remonte d'une ligme 

VT efface le contenu de la fenètre courante 

CR retour au début de la ligne courante 

SO passage en mode TELETEL 

SI retour en mde normal 

DLE rien (utilisé en protocole TRANSPAC: “P) 

DC1 allume le curseur et initialise TIMER 

DC? répète le dernier caractère ASCII affiché 
exemple: 


( n ——) 12 EMIT EMIT ; DACIMAL 


CR ." -" 39 REPETE 


affiche une ligne de 40 "-", 


13h 
14h 
15h 
16h 
17h 
18h 


19h 
1Bh 


1Ch 
1Eh 


C3 rien 

DC4A éteint le curseur 

NAK rien 

ACC pour séquence caractère 

ETB rien 

CAN efface le reste de la ligne courante à 
partir de la vosition courante du curseur. 

IM SUB rien 

ES séquence d'échappement (voir détail plus 
loin) 

FS GS rien 

RS renvoi du curseur en ligne O, colonne 0 

US débute ne séquence de positionnement 
du curseur 


d'un caractère G2: 


livre sterling 
dollar 

dièse 
paragraphe 
flèche à gauche 
flèche en haut 
flèche à droite 
flèche vers le bas 
degré 

plus ci mins 
division entière 


sz allemand 


LES SIQUENCES D'ECHAP PEMENT 


Ces séquences permettent de contrôler diverses fonctions: 


48h 
49h 


HEX : 


mode PAGE! 
mode PAGE. Exemple: 


PAGE£ ( n —) 
1B EMIT 1+ EMIT : DECIMAL 


O PAGEL passe en mde PAGE! 
1 PAGE£ passe en mode PAGE? 


4Ah 
ABh 
ach 


overlay PAGE2 

overlay PAGET 

caractères taille normale ! 
caractères double hauteur ! 
caractères double largeur ! 
caractères double taille. 
masquage 

mode bitmap 4 couleurs 

40 colonnes 

80 colonnes 


voir le mt SIZE 
en FORTH 
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Le tracé d'un segment de droite sera exécuté par appel 
HEX : MDE ( n —) ES0Ch (DRAW) avec en entrée 
1B EMIT 1+ EMIT ; DECIMAL 


registres 6809 X et Y 


O MDE passe en 40 colonnes registres el:60%Dh PIOTX 

4 MODE passe en 80 colonnes; à noter que l'éditeur el1:603Fh PLOTY 
FORTH fonctionne parfaitement dans ce mode. 6041h CHDRAW 

6033h FORME 

5SCh inversion vidéo. Voir le mot INVCOLOR.en FORTH. 603Bh COLOUR 

SEh mode bitmap 16 couleurs 6019h STATUS 

5SFh démasquage 

68h écrit caractère c sans changer la couleur et en sortie: 

69h écrit car c dans la couleur courante 

6Ah scroll à vitesse normale registres el:603Dh PIOTX 

6Bh mode page el:603Fh PLOTY 

6Ch suppression incrustation 

6Dh passage en mde incrustation La routine trace un segment de droite entre Île point 

6Eh scroll doux. Idéeal pour les bancs titres en d'abscisse PIOTX et d'ordonnée PLOTY et les coordonnées X 
mode incrustation. Exemple: et Y passées par X et Y. Les coordonnées du dernier point 


allumé sont mises dans PIOTX et PLOTY. 


O HORDER O PAPER COLOR 7 INK COLOR CLS 
1 SCROLL suivi de vos affichages, ceci en mode Pour les segments horizontaux, la routine de tracé fait 
incrustation. appel à une sous-routine de tracé rapide. 


88h mode triple overlay sélection page 1 On peut accéder à la couleur d'un point en faisant appel à 
89h mode triple œverlay sélection page 2 ES1h (GETP) avec en entrée: 

&Ah mode triple overlay sélection pag 3 

&Bh mode triple overlay sélection page 4 registres 6809 X et Y 


et en sortie 
CLAVIER 

: registre 6809 B 
La lecture rapide du clavier est exécutée par la routine 
située en H309h (KTST). Paramètre retouné par le registre Les différentes valeurs prises par le paramètre de retour 
6809 CC. dépendent du mode d'affichage: 


Le décodage est effectué par la routine E806h 
Paramètres d'entrée: 


- mode T07: -16=-K=-1 en couleur de fond et X=K=15 en 
couleur de forme. 
- mode bitmap 4 couleurs: X=K=3 
el1:6079h BUFCLV - mde bitmap 16 couleurs: X=K=15 
607Bh SIZCLV - mdes PAGE, PAGE, OVERLAY, 80 colonnes, triple 
overlay: O pour couleur forme, -1 pour couleur fond. 


(GET). 


et renvoie en retour: 


LECTURE DES CARACTERES 
AFFICHES À L'ECRAN 


registres 6809 B et CC 


La programmtion du clavier est effectuée par E506h (GETC) 
avec en entrée: Cette routine renvoie le code du caractère situé aux 
coordonnées texte par appel de ES24h (GE) avec en 
registre 6809 B entrée: 
registre 6019h (STATUS ) 
registres 6809 À et X 
les codes à affecter à STATUS sont: 
et en sortie 


F8h réinitialise le clavier 

F9h CAPS LOOK on registre 6809 B 

FAh CAPS IOOP off 

FEh sélectionne les codes spéciaux du keypad X contient le numéro de colonne [1..80] et À le mméro de 

FCh sélectionne les chiffres pour le keypad ligne [0..24]. Si le caractère n'est pas reconnu, B 

FDh interrogation clavier: réponse BOh-CAPS ON; renvoie une valeur mmlle. Cette routine n'est accessible 
B4h=CAPS OFF que dans les modes T07, 80 colonnes, PAGEt, PAGE, 


overlay. 
bi de STATUS est remis à O après exécution de GEIC. 


GENERATEUR MUSICAL 


GRAPHISME 
La note à jouer est passée par le registre B puis appel 
L'allumge et extinction d'un point est réalisé par appel dela routine FStEh (NOTE). On a en entrée: 
de la routine HBOFh (PICT) avec en entrée: 
registre 6809 B 


registres 6809 X et Ÿ registres el:6036h OCTAVE 
registres 603%8h FORME el1:6033h DURÉE 
6041h  CHDRAW el1:6031h TEMPO 
603Bh  COLOUR = — 6035h TIMBRE 


6019h STATUS 
Les treize notes de base sont: 
et en sortie: 


silence 30h DO 51h 

registres el:603Dh PIOTX ! coordonnées du dernier DO dièze 32h RE 35h 
el:603Fh PIOTY ! point tracé. RE dièze 34h MI 35h 

FA 36h FA dièze 37h 

Cette routine est compatible avec tous les modes SOL 38h SOL dièze 39h 
graphiques. Il faut simplement veiller à ne pas sortir des LA 3Ah LA dièze 7Bh 
limites graphiques du mde courant (160; 320; 640x200) . SI 3Ch DO+ 3Dh 


Le contenu de 6041h (CHDRAW) doit être mis à zéro, sinon L'octave est comprise dans l'intervalle [1..5], avec les 
on est en mode caractère. valeurs 16, 8, 4, 2 et 1 à affecter respectivement au 
registre OCTAVE, 
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la durée est controlée par le registre DURFE, de 96 à O. 
96 correspond à une ronde, 3 à une triple croche, 


le timbre est chargé avec une valeur allant de O à 5 dans 
le registre TIMFRE. 
LE JOYSTICK 


La position de la minette de jeu est délivrée par la 
routine E%7h (JOYS) avec en entrée: 


registre 6809 A 
et en sortie: 
registres 6809 B et CC. 
On passe en entrée le numéro du joystick dont on désire 


connaître l'état. ŒEn retour, on aura la sigmification 
suivante dans le registre B: 


0 rien 1 midi 

2 1h30 3 3h 

4 4h30 5 6h 

6 7h30 7 9h 

8 10h30 CC=t signifie bouton enfoncé. 


L'INTERFACE RS232 


Cet interface, disponible en option, permet de recevoir et 
de transmettre des données et des fichiers depuis ou vers 
une imprimante série, un modem, un autre ordinateur, ou 
tout autre appareil transmettant en série selon la norme 
RS27%2. Aucun logiciel de gestion de protocole n'est 
implanté dans le système THOMSON. La routine est située en 
ES12h (RSCO) et accepte en entrée: 


registre 6809 B 


registres 602Bh RS.OPC 
el :6044h BAUDS 
6046h NOMIRE 
et en sortie: 
registre 6809 CC 
registre 602Ch RS.STA 


Les opérations sont sélectionnées en fonction du contenu 
affecté à RS.OPC: 


0000 0001 ouverture en lecture/écriture série 
0000 0010 lecture d'un caratère série 

0000 0100 ouverture en écriture série seulement 
0000 1000 écriture en // 

0000 1001 écriture caractère en ærie 

0000 1100 écriture caractère en série 

0001 0000 fermeture en // 

0001 0100 fermeture en série 

0010 0000 copie graphique de l'écran 

0100 0000 ouverture en écriture // 


Le registre 6809 B contient le code du caractère à 
envoyer. 


De plus, en transmission série, le contenu du registre 
NOMERE permet la sélection de certaines options: 
b7 b6 11 5 bits 
10 8 bits 
O1 7 bits 
00 6 bits 
b5 O horloge système 


1 horloge externe 


b4 b3 b2 111 bit d'espace 
101 bit de marque 
011 parité paire 
001 parité impaire 

pas de marité 


b1 O mode modem 
Î mode terminal 


2 bits de stop 


L 1 bit de stop 


Quand à la vitesse de transmission, la plage d'utilisation 
est plus étendue que celle du THOMSON T07-107/70. Cette 
vitesse est sélectionnée par la valeur affectée à BAUIS: 


bauds valeur bauds valeur 
50 1 T5 2 

110 3 135 À 

150 5 300 6 

600 7 1200 8 

1800 g 2400 Ah 
3600 Bh 4800 Ch 
7200 Dh 9600 En 
19200 Fh 


LA TABLE D'ALIOCATION DES FICHIERS 


Lors des accès disque, la FAT (File Allocation Table- 


Table d'Allocation des Fichiers) permet de prendre 
connaissance de l'organisation du disque courant: 
octet O: 0 
octet 1: bloc O0, piste O0, secteurs 1 à 8 
octet 2: bloc 1, piste O, secteurs 9 à 16 
etc... 
octet 160: bloc 159, piste 79, secteurs 9 à 16 
ceci en double densité. En simple densité, la FAT est 


limitée à 127 blocs. 
Le contenu des octets de la FAT simifie: 


FE bloc non alloué 

FEh bloc réservé 

00..BFh bloc allow, c indique le numéro du bloc logique 
suivant. Exemple: 


octet 2 contient 3Fh, donc Le bloc logique suivant est l 
bloc 3Fh. 


Cih..C8h dernier bloc d'un fichier. Les bits bD à b3 
donnent le nombre de secteurs utilisés par le fichier dans 
ce dernier bloc. 


La directory du disque a une capacité maximale de 112 
fiches en double densité, 56 fiches en simple densité. Le 
nom de chaque fichier occupe 32 octets: 


oct 00..07 nom du fichier 
oct 08..0Ah extension du fichier: BAS BIN FTH BK, 
etc., 

oct OBh type du fichier: 

O programme BASIC ASCII ou binaire 

1 données BASIC en ASCII 

2 programme en langage machine 

3 fichier assembleur en ASCII 
oct OCh drapeau booléen: FFh=ASCII; OO=binaire 
oct ODh numéro du premier bloc logique du fichier 
oct OEh. .OFh nombre octets utiles du dernier secteur 


oct 10h..17h commentaire associé au fichier 
oct 18h..1Ah date fichier 
oct 1Bh..1Fh réservés 
Pour chaque entrée dans le catalogue, le premier octet 


indique l'état de cette entrée: 


O0h pas de fichier, 
20h à 7Fh code ASCII du premier car du nom de fichier 


FM fin du catalogue. 
4 
COMMUTATION DE RANQUES ROM 
Les différentes banques mémoires situées entre les 


adresses OCOOh à 3FFFh peuvent être sélectionnées par 
exécution de la routine H03%h (COM), avec en entrée: 


registres 6809 U et A 
Le registre U définit l'adresse de la routine à exécuter. 
Le registre À définit une valeur aa format OOSSOOBB, SS 


étant le numéro de SLOT et BR le numéro de banque. es 
différentes valeurs possibles sont les suivantes: 


TED 
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Cartouche externe 
Basic 128 
01 Extramoniteur 
10 Basic 1 
11 Exploitation des fichiers 


— définit un état différent de 1. L'adresse 20h de 
chaque slot donne le nombre de banques ROM, ceci dans le 
cas où Le programme situé en ROM tient sur plus de 16K. 


Les appels à l'extra-moniteur sont effectués à l'aide de 
la routine OCh (EXTRA), avec en entrée: 


registres 6809 B 
registres pages 6100h à 62FIMh, dépendant de la routine 
appelée. 


Le registre B contient le numéro de la routine à exécuter. 


LA CARTE MEMOIRE 


adresses hexa 
O000-3FFF espace ROM 
4000-5FFF 2x8k mémoire écran 
6000-60FF registres du moniteur 
6100-9FFF ram utilisateur banque fixe 
AO0O-DFFF 14 banques RAM 16k en parrallèle 
EH000-E7AF 2x1.9k rom pour le disque 
ETBO-ETEF 16 adresses non utilisées ni décodées 
E7CO-E7C7 PIA 6846 système 
EYCS-ETCB PIA 6821 système 
ETCC-ETCF PFIA 6&1 extension jeux 
ETDO-E7D7 contrôleur de disque 
ET7D8-E7D9 sélection allouée au floppy 
ETDA-ETDB palette 
ETDC-ET7DD gate Mode Page en affichage 


Voici une nouvelle série de questions posées par nos 
adhérents. Les réponses à ces questions paraîtront dès que 
vous nous les enverrez. Si vous mêmes avez des questions, 
vous pouvez nous les adressez. Jouez le jeu, 8i vous avez 
une réponse à une question, même partiellement, écrivez. 


QUESTION 3: de A.JACCOMARD (29190 PLEYBEN) 

L'article règle à calcul dans JEDI no 20, janvier 86 donne 
pour 1/K et 1/K' des développements ne correspondant pas 
aux résultats annoncés (même après interversion de ceux- 
ci), et ils sont indispensables pour améliorer la 
précision. Quelqu'un a-t-11 les valeurs exactes? 


QUESTION 4: de Michel ZUPAN (67800 HOENHEIM) 
RICURSIVITÉ: comment définir RIURSE ou MYSELF ou un autre 
mot pour qu'il prévienne un overflow de la pile de retour? 


QUESTION 5: de Michel ZUPAN (67800 HOENHEIM) 

AUTO-FDITION:. comment vectoriser IMIT pour qu'il écrive 
dans les écrans? Application: -ré-écrire facilement. le 
source d'un mt-code avec virgule et C-virgule sans plus 
passer par ASSEMBLER. 
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QUESTION 6: de Michel ZUPAN (67800 HOENHEIM) 
TOMPITATION  CONDIT 


BMART-INTERPRETER : 


EVDE-E7DF 6850 pour liaison clavier 
E7EO-ETÉS interface de commnication T07-70 
ETEA-ETYE7 compteurs crayon optique 
ETEB-E7EB interface RS232 externe 
EYFO-E7F7 interface IEEE externe 

E7I8-E7FD modem 

ETFE-ETFF réservés 

EB00-FFFF °x6k du moniteur. 


La commutation des banques mémoires RAM peut être réalisée 
par un programme du type: 

COMMUT  PSHS D,X,U 

LDU =$£7COH 

LDB 11,U 

ANDB =$0FH 

STB 11,U 

IDX =TAB table des valeurs à mettre dans PIA 


LDA A,X 
STA O,U modifie les directions du PTA 


ORB -04 
sTB 11,U 
PULS D,X,U,PC 


TAB FCB $OFH, 17H, $E7H, $6 7H, SSATE, 27H 


Ce programme est compatible T07/70. Pour commuter les 
autres banqués, il faut programmer le Gate Mode Page. Le 
nombre maximal de banques possible est 32 (14 implantées), 
soit une capacité mémoire potentielle de 32x16k, soit 
512k auquels viennent s'ajouter 16k de mémoire vive non 
commutable. Avec la cartouche FORTH, la commutation des 
banques est réalisée par la commande n BANK, où n 
correspond au numéro de banque sélectionnée. La partie 
mémoire située dans les quatres derniers K de la banque 
courante sont réservés aux tampons d'édition. Œ 


IONNELLE: comment n'autoriser la 
compilation d'un mt que s'il ne figure pas déjà dans le 
CURRENT? Définir une variable booléenne RIDEF? autorisant 
ou interdisant la définition de doublons dans un 
vocabulaire. En cas d'interdiction, la définition doit 
être sautée sans ABORT du système. 


QUESTION 7: de Michel ZUPAN (67800 HOENHEIM) 
comment changer 
d'exécution pour qu'il agisse ainsi: 

- si le mt existe je l'exécute. 

- si le mot n'existe pas, j'en crée un. 
Application: FORTHLOG en F83... 


l'interpréteur 


QUESTION 8: de Michel ZUPAN (67800 HOENHELM) 
CROSS-INTERPRETER: comment compiler des fichiers texte 
d'origine quelconque (WORDSTAR ou autre)? 


QUESTION 9: de Michel ZUPAN (67800 HOFNHEIM) 
TRANSLATOR: 


ÂTOR: comment traduire un fichier FORTH en fichier 
texte quelconque (WORDSTAR ou autre: vous m'avez compris)? 
Ndir: voir une solution proposée par A.JACOOMARD dans ce 
même numéro. 


ARITHMETIQUE DES ENTIERS 
EQUILIBRES. 


par Vic NORTON, 
Départesent de Nathésathiques et de Statistiques, 
Université de BOMLING GREEN, OHIO, 


“L'Esprit Divin trouva une issue 
sublise en cette serveille de l'analyse, Île 
précage de l'idéal, le silieu entre être et non- 
Etre, que nous nossons la racine [carrée] 


isaginaire de l'unité négative," 
- Gottfried Hilhela Leibniz 


"Dieu fit les entiers, tout le reste 
est travail d’Hosse.” 


- Leopold Kronecker 


l'arithaétique sur les entiers s'intéresse, 
Nais qu'est-ce qu'un entier (vous ne l'avez certainesent 
pas desandé) ? Cosaent représente-t-on un entier ? 


Supposons, pour Le sosent, que nous savons tous 
ce qu'est un entier, et aussi que nous savons 
additionner et sultiplier des entiers, Etant donnés une 
base 8 et un ensesble fini de chiffres entiers D, on 
pose 


Lan .., dde) = an + .,, + alt à, 


où a€D pour oi = 6,1,...,n. Avec certaines 
hypothèses sur Bet D, ceci représente La notation de 
position usuelle pour un entier (sauf que les crochets 
carrés, les exposants et les indices sont oasis). Les 
husains prennent 8 = 18 et D = (0,1,...,9); sais les 
calculateurs nusériques sodernes, n'ayant que deux 
doigts, préfèrent & = ? et D = {@,1), 


fu point de vue 
est un tableau de chiffres 


a = a(8},al11,a(2),... 


“calculs”, un nuséral entier 


Les algorithses suivants sont utilisés pour 
l'addition et Ja aultiplication des nuaéraux : 


{ pour additionner : c:= a + b} 

ci d ; carryi= 7; 

ni= sax (longla),long(b}); 

FOR 1:=8 10 n-1 D0 
cCilisatil + bi}; 
cfn] €- carry 

{ pour sultiplier : 

cie @; carry:s 8; 

FOR i:= 8 TO Ilongla)-1 DO 

BEGIN 

FOR j:= 8 TO Longtb)-1 DO 

cli + jhs= ci + j} + (ali # blj)); 

cti + long(b)] <- carry 

END 


Quelques explications sont nécessaires, 


Tout d’abord, 


ct atb} 


la longueur d’un nuaéral est 


nulle si tous ses chiffres sont zéro. Autresent 
longtai = n si ala-t] {} @ et alil=8 
pour i }n, 
Ensuite, "carry" représente un esplacesent 


réservé dans La séaoire de la sachine pouvant contenir 
les "retenues" résultant de l'addition de deux nosbres 
et d’une retenue, 


Troisièsesent,, L'opération + ajoute deux 
chiffres et le contenu courant de “carry”, retournant un 
chiffre et ajustant "carry" pour l'opération suivante, 
L'opération # sultiplie deux chiffres et retourne le 
produit. Aucune retenue n’est associée à la 
aultiplication de chiffres dans les systèses que je vais 
considérer, 


Enfin, l'instruction "“clnl <- carry” de 
l’algorithes d'addition transfère le contenu courant de 
carry vers Île nuséral c, en coasençant à l’eaplacenent 
cfnl, et laisse un carry nul. De sêae "cli + long(b}} « 
carry" de l’algorithae de aultiplication transfère le 
carry vers © à la position i + longlb). 


3 Le systèse teroaire équilibré. 


Considérons la base 8 = 3 et l'ensesbie 
d’entiers D = €8,t1}. Tout entier 2 non- nul peut être 
représenté par la forse unique 


\zs= LE … ras, 


avec dàéD pour ir 86,1,...,n et. a, {) 8. Ceci est 
appelé le "systèse ternaire équilibré", 


Une jolie caractéristique de ce systèse est 
l'absence de bit de signe. Tous les entiers peuvent être 
représentés par des nueéraux. Les entiers positifs 
cossencent par un chiffre 1, les entiers négatifs par 
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1. Si on fait 3 = -a, la négation est obtenue de façon 
triviale par 


-(a, des dréels = (La … Hiiolg 


Pour siaplifier La représentation nusérale, 
adopte Le syabole 2 pour Le chiffre -{, Mon encesble 
de chiffres est alors @, !, 2 avec la table de 
auitiplication 


tra-0, 


Lä Table { aontre l’addition de deux chiffres 
et d’une retenue. L’algorithse de La section 2 peut être 


utilisé pour ajouter ou aultiplier des  nuséraux 
arbitraires, 


Lta=a, 2#23z=1, 


TABLE I : addition ternaire. 
SONMECARRY 


Pour concrétiser ces idées, considérons 
886 = 3 + 3e - 34 - 3 +341 
52-36-3439 + 35-341 


1478 =37 - 3e} -3= 43-11 
Utilisez La Table! pour calculer 


1128211 
+ 1211021 


12801212 


De aêse : 
21133943 +32- 341 


394 5-36 + 30 - 54 + 35 #1 


est calculée cosse 
191121 
I 21 
181121 
282212 
el2giti 


Voici les 18 presiers auséraux ternaires positifs : 
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1 #2 8 11 122 1% 
7 8 5 18 fi 12 
125 182 OH80 181 112 118 


J'ai décrit le systèse ternaire équilibré, non pas 
parce que je désire faire des calculs dans ce systèse, 
sais parce qu'il ressesble aux systèses dans lesquels je 
veux faire des calculs. Mais avant- de parler de ces 
derniers, je dois revenir sur la question “qu'est-ce 
qu'un entier ?", 


Ce que j’ai appelé jusqu'ici "entiers" sont en fait 
des entiers rationnels : racines rationnelles de 
polynôses unitaires à coefficients entiers. En 
Particulier, tout entier rationnel #« résoud l'équation 
x -s=6.. 


Un entier algébrique est une extension naturelle de 
cette idée. Il est racine (peut-être coaplexe) d’un 
polynôse unitaire à coefficients entiers. Les nosbres 


42, (14 45/2, 4-1, (1 + 4-3)/2, 


sont des entiers algébriques de degré 2. Ils sont 


racines respectivesent des polynises 
Ke -2,{2-1-1,kX2 +1,17 -1#1 


Le nosbre {5 + 43)/2 n’est pas un entier algébrique. 
I résoud 24% - 2X - 1 = 8, sais celle-ci n’est pas 
une équation unitaire à coefficients entiers. 


Soit 8 l’un des entiers algébriques de degré 2 ci- 
dessus. Alors pour toute paire d’entiers (rationneis) sn 
etn, Île nosbre 2 = à + nf est aussi un entier 
algébrique. 


Pour le aontrer, prenons par exesple 
Q = (1+4-3)/2 et 1=3+5 
Alors 
8= 2547 -2+1) 
= 29Uz - 3)#/52 - (2 - 3}/5 +:1) 
,=2%- 17 +49 
sontre que z est racine de l'équation unitaire 
Xe -111+47-8 


Les entiers algébriques de la forse à + nf {où 0 est 
l’un des nosbres ci-dessus) peuvent être additionnés, 
soustraits, ou aultipliés pour produire des entiers 
algébriques de aêse forge, Soit encore 9 = {l + 4-3)/2 ; 
alors 


3 +59 3 + 50 
+2-70 x2-79 
5 - à 5 - 11ÿ - 354# 
= b - 119 - 35 (9-1) 
2 41 - 46 


Les quatre ensesbles d’ entiers algébriques de forme 
st nsont clos sous l'addition, la soustraction et la 
aultiplication. Ils possèdent aussi un algorithse de 
division, cosse celui des entiers rationnels : étant 
donnés 2 entiers a, b avec b {) 8 il existe des entiers 


9, r tels que à = bg + r et Mir) € Nibi. 


Pour des entiers rationnels, N{a) = à, Pour des 
entiers algébriques de degré 2, Na) = iadi, où à est 
obtenu à partir de l'expression étendue de à en 
resplaçant Les racines carrées par leurs négations. 


J'ai inclus dans cette discussion les réels 
algébriques entiers 42 et (1 + 45)/2 uniquesent à titre 
d'illustration, Je resarquerais en passant que 
l’arithaétique de ces entiers réels est bien plus 
difficile que celle basée sur les entiers cosplexes 4-1 
et (1 + 4-3)/2, 


J'appelle les entiers algébriques de la forse os + 
n®, avec @ = J-lou (1 +41-3)/2 des entiers de Gauss, 
bien que cette dénosination soit habituel lesent réservée 
au cas ® = {J-1, Je vais faire  aaintenant de 
l’arithsétique positionnelle sur des entiers de Gauss! 


3- Systèses quinaire et septénaire équilibrés. 


Les chiffres aon nuls du systèse ternaire équilibré 
sont les racines carrées de l’unité : les racines de 
l'équation XÆ = 1, Ils sont les puissances de = -1, 
Les systèses nusériques équilibrés pour les entiers de 
Gauss sont obtenus d'une façon analogue, leurs chiffres 
non nuls étant les racines dèse et bèse de l'unité, les 
puissances de @ = {-1 et 9 = €! + 4-3)/? respectivesent. 
Je nosse ces systèses de nosbres Les systèses quinaire 
et septenaire équilibrés. 


Une représentation géosétrique des chiffres de ces 3 
Systèses équilibrés est sontrée en Figure 1, Par 
facilité j'utilise les sysholes 8,1, 2,3, 4,5,6, 
avec À noté 2 dans tous les cas, 


figure 1 


Ternaire  Quinaire Septénaire 
équilibré équilibré équilibré 
SEl A: AA QU + 1-31/7 
CES 6-8 = 8 
1=1 1=1 1=i 
2=$f 2:19 2=4 
JE = 3:07 = 149 
4225 = 9 4-07: -) 
S=07 = -f 
b=0®-1-0 


Quatre nosbres autres que les chiffres jouent un 
rôle particulier dans le systèse quinaire. Ce sont les 
“retenues”, des "“non-chiffres", que j'ai étiquetées À, 
B, C, D, en fig. 1. Iis sont en fait représentés par 13, 
24, 51 et 42 respectiveaent, 


Soit 9 = 4-1 où 9 = (1 + 1-3)/2. Posons 


R=24+19 et 
D= 8,1,0,07,0%,0%,01)} 
(9% et 0 sont redondants pour 9 = 4-1), Alors tout 


entier gaussien 2 non nul peut être représenté de façon 
unique sous la forse 


2 = {a, … äräols 
avec a€D pour i = 8,1,...,n et a,()8 


Si @= 4-1, cette représentation définit le systèse 
quinaire équilibré 3 si @= (14+ 4-3)/2, le systène 
septénaire équilibré, 


Jde représente par p le noabre de chiffres non nuls 
dans 9, pour chacun des trois systèmes. Ainsi p = 2 pour 
le systèse ternaire, 4 pour le quinaire et 4 pour le 
septénaire. Avec les conventions de la fig. À, 


D={8,1,...,p) 


la aultiplication de chiffres pour chacun des trois 
Systèses équilibrés est sisplesent décrite par 


8+#a=0 pour tout ab, 
atb=14+ (a +b- faod p) 
pour tout a,b€D-{(8} 


Ici l'opération r eod p doit retourner un entier du 
donaine 8,1,...,p-1, 


La négation d’un nosbre s'obtient par 
az t+t((l - alaod p}, 
et cosse pour tous Les systèses équilibrés 
“dan er dide © In . Side. 


La Table 2 représente l'addition de deux chiffres et 
d’une retenue dans un système quinaire équilibré, et la 
Table 3 celle d’un systèse septénaire, Le systèse 
quinaire se distingue parsi Les trois systèses 
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équilibrés par le fait que les retenues ne sont pas 
toujours des chiffres, L’algorithse de ta section 2, 
avec La Table 2 ou 3, peut 8tre utilisé pour additianner 
ou sultiplier des nugéraux quinaires ou septénaires 
quelconques, 


TABLE 2 : addition quinaire, 


SOMNES RETENUES 
® 1 2 3 #4 A B C D 

+8 08 ot 82 63 84 IS 24 3l 4? 
gti 81 14 13 00 42 10 62 &4 D; 
g+? 02 13 21 24 9 A4 28 95 8! 
843 83 68 24 32 31 62 Bi 30 64 
84 84 42 00 31 43 @i 63 C2 48 
1tl 14 92 18 61 D3 11 13 42 Dé 
142 13 19 A4 62 81 12 21 88 14 
143 80 61 42 93 84 13 24 31 42 
1#4 42 D3 61 @4 40 14 08 43 41 
242 21 À4 43 20 82 AB 22 24 13 
243 24 02 26 Bi 03 21 23 32 88 
244 08 gi 92 03 64 15 24 31 42 
343 32 03 Bt B4 30 24 88 33 31 
344 3t 04 67 38 C2 60 32 34 43 
4+4 43 49 @4 C2 Cl 42 31 C8 44 
TABLE 3 : addition septénaire. 

SOMMES RETENUES 


5 

LA 88 6 92 05 64 85 06 
a+! 9 15 14 62 98 

&+2 92 14 26 25 83 69 81 
+3 3 02 25 31 36 64 08 
8+4 84 68 63 35 42 41 6 
8+5 05 66 68 64 #1 S3 52 
CL 06 63 61 09 45 52 ë4 
iti 15 16 18 14 Bi 63 67 
1+2 140 19 13 26 62 61 15 
1+3 82 4 24 23 63 60 8! 
1#4 09 01 02 83 84 85 8 
1+5 86 63 61 68 95 52 64 
1+6 63 62 IS 81 46 64 64 
+2 26 13 21 29 25 62 14 
243 2 26 28 24 Si 63 62 
2t4 05 82 23 31 3h 84 
245 € 01 02 85 96 65 86 
246 01 15 14 62 88 66 6j 
3t3 31 25 24 32 33 6j 
344 36 03 31 39 35 42 4 
345 94 69 95 36 42 41 90 
36 89 61 02 05 04 65 866 
444 42 84 36 35 43 49 41 
445 41 65 04 42 40 46 55 
444 05 66 08 @4 41 53 52 
5+5 33 52 65 4 46 Si 
3+6 52 64 ®6 65 53 5 51 
6té 64 69 63 88 52 51 45 
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Voici des exeaples d’addition et de sultiplication 
dans le systèae quinaire équilibré, les retenues sont 
expresséaent indiquées pour l'addition. 


AA 12 
1234 41 

+ 2741 4 

134422 3131 


Sous forae gaussienne plus usuelle, ces sûses 
calculs se srésentent ainsi : 


4 +12X 2 + 29 
+134 3% x-2- 720 
-17+150  -4-89 - 407 
= -4- 80 - 41-1) 
= -80 


Vous pouvez vérifier que 
JHS1 3-42 4 0% + (2 + 0) - (2+ 05 +1 
s -fÙ avec 07 = -1. 


J'ai isplanté l’arithaétique, autre que la division, 
pour les trois systèses équilibrés. La division reste un 
problèse, que je discute dans la section suivante. 


La aultiplication (ou La division) de chiffres dans 
un systèse équilibré est accoaplie de façon triviale par 
l’arithastique aodulaire indiquée en section S. Pour 
iaplanter les algorithses généraux d'addition et de 
soustraction de Ia section 2, la seule difficulté 
provient de l’addition de deux chiffres et une retenue. 


Considérons l’une des tables {, 2 ou 3 d’addition 
équilibrée. Chaque entrée interne consiste en une 
retenue à gauche et un chiffre à droite. Ainsi le 
contenu de la table peut être aésorisé dans deux 
tableaux rectangulaires, une table des chiffres et une 
table des retenues, chacune étant indexée par les sosses 
de chiffres et de retenues. Une fois les tables placées 
en aéaoire, l'addition de deux chiffres et d’une retenue 
peut être exécutée par le calculateur cosse je l'ai fait 
à la sain dans les exeaples. 


Les tables d’addition conviennent au calculateur 
huaain. Mais à cause de la circularité de la 
sultiplicètion de chiffres, beaucoup de leur contenu est 
redondant, Par exeaple, considérons l’entrée AB de 1a 
ligne 2 + 2, colonne À de la Table 2. Divisons par 2 les 
indices de ligne et de colonne (déplacez chaque chiffre 
en arrière de 1): 


{242)/2=1 +1, À/2 = 15/2=42=19. 


Sur La ligne 1 + 1, on tit en colonne D l'entrée D8. 
Nultiplions alors D8 par 2 (déplacez chaque chiffre non 
qui en avant de 1): 

2 #08 = 2 + 420 - L:8 = A, 


et nous retrouvons l'entrée AQ de la 
colonne À, 


ligne 2 + 2, 


Dans son isplantation FORTH, j'ai placé les tables 
des chiffres et retenues correspondant aux Tables 1,2 
et 3 dans des tableaux d’octets de disensions 2 x ê, 
31 9,et 4x 7 respectivesent. La flasmsion de la 
colonne dans chaque cas est le nosbre de retenues 
requises, | 


Pour éviter La confusion dûe aux détails superflus, 
je voudrais éviter autant que possible la distinction 
entre les trois systèses, Les seules différences 
isportantes se trouvent dans les nosbres p = 2, 4,6, de 
la division sodulo sentionnés en section 5, et dans les 
tables d'addition 


J'ai placé p dans une variable nonsée PBASE, Pour 
sélectionner un systèse (p et tables), j'exécute FRET, 
QUINT, où SEPT avec Les définitions FORTH: 


1 TRIT À -- ) 2 PRASE ! 

? TDISITS CFA DT ! 

? ICARRIES CFA ’CT ! ; 
t QUINT (-- ) 4 PRASE ! 

? QDIGITS CFA DT ! 

? QCARRIES CFA CT! ; 
1 SEPT ( -- ) 6 PRASE ! 

? SDIGETS CFA DT ! 

? SCARRIES CFA ‘CT ! ; 
Ainsi les tables d'addition 


TDISITS,  TCARRIES, ODISITS, 
SCARRIES 


QCARRIES,  SDIGITS, 


sont vectorisées sur les variables BF et CT, Ces 
variables à leur tour sont lues par les sots 


3 DIGITS-TABLE ( ligne colonne -- chiffre } 
'PT @ EXECUTE ; 

t CARRIES-TABLE { ligne colonne -- retenue } 
"CT @ EXECUTE ; 


Les  algorithses généraux  d’addition et de 
sultiplication de La section 2 sont exécutés par les 
sots It et +. J'en dirai plus dans un sosent, lorsque 
je parlerai de son systèse pseudo-FORTH pour les 
nusér aux équilibrés. de voudrais faire resarquer ici que 
ces deux sots, Z+ et 24 sont définis à partir des aots 


PRAGE, DIGITS-TABLE et CARRIES-TARLE, eux-aêaes prenant 
leur sens de TRIT, QUINT où SEPT, dépendant du systèse 
désiré. 


L: # L] 


Tous à cette conférence soaues des amoureux de 
FORTH. Sinon pourquoi serions-nous 14? Charles MOORE à 
développé FORTH pour traiter des entiers (entre autres 
choses} avec a conviction qu'ils sont suffisants en 
pratique. Bien que son but ne puisse être considéré 
cosse ‘pratique* que par Les esprits les plus éclairés, 
le sieux pour sanipuler sa notion étendue d’entiers 
n'est-il pas de copier le systèss de Moore? 


L'ingrédient fondasental en FORTH, c’est la pile de 
données, J’ai appelé ses entiers des "z-nuaéraux", Pour 
les aanipuler (chaînes d’octets, de longueur 48 
actuellesent, contenant les chiffres 8,1,...,6), j’ai 
créé une "2-pile". 

Faisons une digression saintenant afin d'introduire 
un sot évitant des confusions. Nous avons déjà deux 
piles. Trois peuvent devenir intolérables! Le aot auquel 
je fais allusion est un synonyae de "{*, Fi est défini 
sisplesent par 


3 (5 À -- (texte) ) 
C FIND ( 3 LITERAL EXECUTE ; IMMEDIATE 
I sert à décrire le contenu de 1a 2-pile. 


Revenons à notre sujet. J'ai besoin. d'entrer des 


z-nuséraux. Celà se fait avec 


1 (-- nus) (2: -—- 2) 


Uprend an z-nuséral dans le flot d’entrée, 
contrôle ses chiffres, et le place sur la z-pile s'il 
est valide ). 
°{1s". 
opérations 


Vous voyez ici l'utilité de son délisiteur 
Addition et saultiplication étant des 
binaires, il est pratique de disposer du sot 


2 22 À -- 2nual znue2 ) (1: -- 21 72) 
11; 
L’arithaétique des z-numéraux se fait avec 


Lt (1: 29 22 -— 23 } (23 := 11 +22) 

18 (y 24 22 -- 23 ) (13 := 21 #22) 

ls (Mi 2122-28 (23 se 21 - 12) 
INEGATE (7: 2 -- 22) Uz2:= - 21) 

1De td -- D} (1: 2 -- 72 } Uz2:= 21 # d) 
1D/ (d -- } (13 21 -- 22) { 22 := 21 / d} 
LiBt (1: 21 -- 22) (12 := 71 4 18) 

1167 (1: 21 -- 22) (22 := 21 / 18) 


oë d représente un chiffre et & = 3 ou 249 
est la base. 
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standard, Ainsi 


IDUP {15 2 -- 2 2) 
2LDUP (2: al 22 -- 21 22 21 12) 
IDROP (ès z - ) 


ISWAP (45 21 22 -- 22 21) 
TOVER (25 2t 22 -- 11 2221) 
IROF (1: 21 22 28 -- 2223 cl) 


Pour les sorties : 


l, (li z --) 
16, {ls z -—} 


le presier sot affiche la représentation nusérale de 
z ét le dernier sa représentation gaussienne, d’après la 
définition 


25 EL d:8* 3 (d, CE) didelg 


Vous voyez saintenant que son systèse FORTH pour 
l'arithaétique d’entiers équilibrés est essentiellesent 
complète, à une exception notable près (qui n’ast pas 
une exception en théorie}, Je ne sais pas, actuellement, 
cassent définir correctesent les sots 


11 Us 2b 22 -- 23) 
INOD (1: zt 22 -— 13} 
L/MOB (1: 21 22 - 23 24} 


Avant de voir la division, veuillez regarder Ja 
Figure 2. Cette page sontre un exercice typique sur son 
systèse, Je désontre, par exesple, que 


145 + LS = 268 et 145 x 115 = 16675 


ou bien, si vous êtes vraisent branché, que 


122181 + 11121 = 191282 et 
122181 x 11121 = 1822028221 


de sontre que, quels que soient vos efforts, vous 
oubliez toujours dans quelle base vous vous trouvez si 
elle n'est pas décisale, EL quand vous ne vous souvenez 


plus de ce qui est espilé, vous pouvez aussi bien 
abandonner, 


Figure 2, 
FRET QK 
21 122181 11121 OK 
1SWAP 21DUP CR 26. 4 SPACES 16, 
RE: 145 IN: © RE: 115 IN: OK 
2IDUP Lt ISMAP IROT ZE ZSMAP OK 
IDUP CR 7. 4 SPACES 16. IDUP CR I. 4 SPACES 16. 
191282 ___RE: 268 IN: Q 
1822829221 RE: 16675 EM: 9 OK 
1 181202 OK 


IOUP 21@+ Z10+ 2195 (K 
ISWAP 118/ 214/ ZSHAP OK 
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Pour aanipuler la z2-pile, j’isite Les aots FORTH 


2DUP CR Z. 4 SPACES 26. IDUP CR Z. 4 SPACES 16. 
181282888 RE: 7028 In: 0 

1Q1 RE: 19 IN: 8 OK 

QUINT OK 

21 31122 12345 5 15 NOT A DIGIT 7 

21 31122 12H80 | 

ISAP 2LDUP CR 16. 4 SPACES 16. 

RE: AIM: -b RE: -20 IM: 28 OK 

21DUP 24 ZSMAP ZROT 28 ISMAP OK 

2DUP CR Z. 4 SPACES 26. 2DUP CR Z. 4 SPACES 16. 
13002 RE: -9 IM: 14 


41430218 RE: 108 IN: 348 OK 


REz 20 IN: 29 RE: 28 IN: -28 
RE: -20 IN: -28 RE: -29 IN: 28 (K 
SEPT OK 


21 2245 66035 OK 
1SWAP 21DUP CR 26. 4 SPACES 76. 
RE: -63 M: 59 RE: 55 IN: 
210UP 24 ISWAP ZROT 24 ISWAP OK 
2DUP CR Z. 4 SPACES 16. ZDUP €R I. 4 SPACES 16. 
12623 RE: -2B I: 75 
158480243 RE: -5589: 
L 66835 OK 
1DUP 2 10/ 2OUP 2 1B/ LOUP 2 1/ ZDUP-2 1D/ 

IDUP 2 1D/ OK 
CR 16. 4 SPACES 16, 4 SPACES 16. CR 16. 

4 SPACES 26, 4 SPACES 16. 
RE: -16 IM: 70 RE: -71 M: 55 RE: -55 IM: -16 
REs 16 Ms -71 RE 71 Me -59 RE: 55 I: 16 OK 
1184 1- STACK_UNDERFLON ? 


_18& 


In: _2861 OK 


Pour souligner ce que je vais faire aaintenant, 
faisons un calcul. D'après la Fig, 2 


22845 = -83 + 590, 
68835 = 55 + 160 


et leur produit est 
1586808243 = -5589 + 28610, 


dans le systèae septénaire équilibré. Souvenez-vous 
que la partie isaginaire n'a pas ici la forse usuelle! 
Le sysbole © représente {1 + 4-3)/2 et non 4-1, 


de vérifie aaintenant le produit en utilisant les 
représehtations gaussiennes et le fait que 7 < 0-1: 


- 83 + 590. 
153 + 16 9 

55x83 + (55x59 - 16x63) 9 + 16x59 27 
= -4565 + 1917 0 + 944 (Q - 1) 

= -(4565 + 944) + (1917 + 944) 0 

E -5589 + 2841 9 


cosse attendu (du soins par soil. 


Etant donnés deux nugéraux à, b, avec 604, 
trouvez des nunéraux q, c tels que 

(D D asqdte, 

(2) Nic) € H{b}, 


J'ai décrit la norse gaussienne À pour certains 
entiers algébriques en Section 4. Cependant, la "norse" 
N dans l'énoncé du problèse de la division n’a pas À 
être idu soins, dans notre cas, ne devrait pas Btre) la 
norse gaussienne, 


La notion rigoureuse de norse à été décrite par Th. 
Notzkin (33, Une norse N doit prendre des nuséraux non 
nuls pour des valeurs d’entiers non négatives. Elle doit 
satisfaire Nib) { N(a) tant que b divise à . Si bne 
divise pas à, alors il doit exister des nuséraux getc 
satisfaisant (1) et (2). Le véritable problèse de la 
division est de trouver une norse N approppriée, 


Voici un exesple, Si les nuséraux sont des nugér aux 
binaires pour des entiers {plus le bit de signe), alors 
N peut Btre la longueur nueérale, Dans un sens décrit 
par Motzkin, c’est la norse la plus efficace pour des 
entiers rationnels, Mais 2 est très spécial ici, La 
longueur nusérale dans toute base plus grande n’est plus 
une norse. 


Le problèse avec la norse en base 2 est qu'elle est 
inadaptée à ses buts. Le Systèse ternaire équilibré a 
une base 3, 


Considérons alors la fonction entière 


Na) = 2n si (3 41)/2 & lat € (5,3m— 244)/2 
Na) = 2ntl si(5,3"—241)/2 4 at « (3241172 
pour iaï > Letn=1,2,..., 
avec N(tl) = 1, et N(B) = 6. 
Cette fonction satisfait à toutes Les contraintes 
de Motzkin pour une norse et convient à la base 3, Sur 
les nuséraux ternaires équilibrés 


à = [an ddl 

avec dn (> 8 

Na) = 2n si an + à,-1 = Ÿ 
Na) = 2n + 1 sinon 


Voici un algorithse de division dans le systèse 
ternaire équilibré basé sur cette norse N. Les nuséraux 
a et b étant donnés, avec b {) 8 : 


pour calculer le quotient g, le reste r 

gisf;icira; 

WHILE (NIb) © Nic) DO 

BEGIN {invariant de boucle: a = 
t:= - leadtc}/leadib) ; 
ni= (N(c) - N(b))/2 5 
gi:qg-trbtin 
cicthetsftsin 


qgtb + c} 


END. 


La fonction “lead” dans cet algorithee retourne le 
chiffre de plus haut degré du nuséral. Il est synonyse 
de "signe" dans le systèse ternaire équilibré, La 
division dans la presière ligne du bloc BEGIN est une 
division par chiffre; dans la seconde ligne, une 
division entière. | 


À titre d’exesple de division dans le systèse 
ternaire équilibré, je vais diviser 1218211811 par 
11291. Les qguotients accusulés et les restes 
apparaissent directesent sous les lignes horizontales, 
Les norses du diviseur et des restes apparaissent entre 
parenthèses, 


{NT : La forse anglo-saxonne de la division a été 


conservée.) 
DIVISEUR RESTES QUOTIENTS 
11281 (9) : 1218211811 (18) 8 
22182 10000 
1812681811 (17) 18888 
22182 18888 
2221014 (13) 120084 
118 _— 1708 
211411 (18) 120288 
11781 Sunae 
2122 (6) 120282 


Ce éaieu aontre que 
1218211811 = 128282 x 11281 + 2122 
En notation décisale plus usuelle : 
15178 = 152 x 188 - 22 


Assez curieusesent, le aêae algorithee et la eêse 
norse ,S’appliquent presque au  systèse quinaire 
équilibré. Presque, sais pas tout à fait : voilà où j’es 
suis du problèse de la division, 
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8 - Conclusion. 


Bien que je ne prétende pas que mon exercice ait 


beaucaup d’isportance pratique (sais il le pourrait), je 
croit 


vraisent qu'il représente une application 
intéressante de FORTH, Si vous êtes intéressé par 
l'histoire du systèse ternaire équilibré consultez Kauth 
C2, pp. 150-192), Gilbert (11 fait un bel exposé sur Les 


systèses de nosbres cosplexes utilisant les entiers. 


NOTE DE LA REDACTION: Suite à la parution de cet article, 


{1] Gilbert, N, J.: Arithsetic in cosplex bases. 


Matheaatics Magazine S7 (2, mars 1984), 77-81. 


[23 Kauth, D. E.: The art of conputer prograsaing, 
vol.2/6esinus. Algorithas. Addison-Wesiey, 1561. 
(31 Motzkin, Fh.: The Euclidean Algoriths. 
Bull. As. Math, Soc. 59 (12, dec. 1949). 


1984, Rochester Forth Conference. 
HRHEEH rad, À. JACCONARD, nov, 1986. ##H4#4 


nous nous attendons 


recevoir de nombreux appels et courriers pour obtenir des précisions concernants 


les références. Aussi 


avertissant 


nous 


permettons-nous de prendre les 
que cet article est avant tout une traduction, 


devants en vous 
lesdites référendes 


n'étant pas en notre possession. Cependant, s'il se trouve un adhérent les ayänt 
en sa possession, nous lui serions gré de nous les communiquer. 


D'autre part, 
pratique, et ce 


suggérons-vous, à titre d'exercice, 


suite de la page & 


Des règles complètes comprendraient en outre, les niveaux 
non traités ici, de nombreuses configurations de proximité 
entre deux ou trois niveaux, spécialement lorsque le 
précontact est l'un d'entre eux, les dimensions finies et 
leur tolérance etc... 


EVOLUTION DU CONCEPT 
DE REGLES DE DESSIN 


Le dessin d'un circuit appelle une vérification du respect 
des règles précitées. Cette étape n'est plus envisageable 
manuellement et fait partie intégrante de l'arsenal CAO 


actuellement connu généralement sous le vocable DRC 
(Design Rules Checking), ces programmes peuvent être 
fiables mais toujours lourds à manipuler. Diverses 
approches tentent d'éviter ce contrôle à postériori tout 


en limitant le nombre de paramètres que doit manipuler le 
concepteur. 


La première démarche est symbolique au niveau composants. 
Les composants élémentaires sont des transistors, des 
contacts, des connexions, etc... qui sont placés selon les 
règles de dessin généralement réduites. S'il est possible 
de quantifier ces règles en un petit nombre de multiples 
d'une dimension de base, on aboutit au "stick daigram” de 
Mead and Conway où la description peut être faite sur une 
grille figée. Si la gestion des règles de dessin est 
assurée par informatique, alors 11 est possible de 
dessiner sur une grille symbolique qui sera ensuite tassée 
par ordinateur, c'est le programme Tricky. 


Une approche symbolique plus rationnelle consiste à 
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cet article n'est accompagné d'aucun programme d'application 
bien que l'auteur en fasse abondament référence. 
de créer ce programme en 
syntaxe et les primitives telles qu'elles sont définies dans le présent article. 


Aussi nous 
respectant la 


Bon courage.. _ [| 


aborder le niveau “porte”. 
nombre 
les dimensions sont quantifiées par rapport à une grille 
de base. Un exemple significatif est l'approche MDMOS où 
la largeur des portes est fixe, la longueur variable aînsi 
que la position des accès. Les risques d'incohérence 
logique ou électrique sont ainsi réduits au prix d'une 
légère perte de densité (environ 107). 


Les composants de base sont un 
restreint de portes logiques et de conneions dont 


Au niveau supérieur, 
où les fonctions 
électriquement et 


on peut citer l'approche cellulaire 
de base sont fixées topologiquement, 
logiquement. Généralement une des 
dimensions est commune ou multiple d'un pas de base et la 
conception consiste à placer ces cellules et à les 
interconnecter entre elles. La sécurité électrique et 
logique devient alors très bonne au détriment de la 
densité (environ 30 2%). 


Le dernier stade qui est la frontière entre la conception 
de circuits et la conception de systèmes est le réseau 


prédiffusé. Un jeu de fonctions standard déjà placées est 
proposé au concepteur qui doit réaliser l'interconnexion 
grâce à un niveau de métallisation. Cette méthode se prète 
à une automatisation poussée et conduit à une sécurité 


absolue sur les plans logiques et électriques, au prix 
d'un choix restreint de fonctions de base. 
Ces diverses approches ne sont pas à considérer comme 


concurrentes, car chacune a l'intérêt de proposer un 
compromis différent sur le plan du temps de conception, du 


coût du circuit et de ses performances. L'avenir 
appartient peut-être aux compilateurs de siliciun, 
programmes qui permettraient d'obtenir les masques à 
partir d'une spécification formelle de la. fonction à 
réaliser. 


